home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / loads / loader / forms / loader.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-01-12  |  8.8 KB  |  261 lines

  1. VERSION 2.00
  2. Begin Form frmLoader 
  3.    BorderStyle     =   3  'Fixed Double
  4.    ClientHeight    =   1740
  5.    ClientLeft      =   765
  6.    ClientTop       =   4020
  7.    ClientWidth     =   5010
  8.    ControlBox      =   0   'False
  9.    Height          =   2160
  10.    Left            =   705
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1740
  15.    ScaleWidth      =   5010
  16.    Top             =   3660
  17.    Width           =   5130
  18.    Begin SSPanel panPannel 
  19.       BevelWidth      =   3
  20.       BorderWidth     =   1
  21.       Height          =   1740
  22.       Left            =   -15
  23.       Outline         =   -1  'True
  24.       TabIndex        =   1
  25.       Top             =   0
  26.       Width           =   5040
  27.       Begin SSPanel panFloodBar 
  28.          BevelWidth      =   3
  29.          BorderWidth     =   1
  30.          Height          =   420
  31.          Left            =   135
  32.          Outline         =   -1  'True
  33.          TabIndex        =   3
  34.          Top             =   690
  35.          Width           =   4710
  36.       End
  37.       Begin Label labLabel 
  38.          BackStyle       =   0  'Transparent
  39.          Caption         =   "Loading Module :"
  40.          Height          =   330
  41.          Index           =   2
  42.          Left            =   195
  43.          TabIndex        =   5
  44.          Top             =   1230
  45.          Width           =   1605
  46.       End
  47.       Begin Label labModule 
  48.          BackStyle       =   0  'Transparent
  49.          Height          =   300
  50.          Left            =   1875
  51.          TabIndex        =   4
  52.          Top             =   1215
  53.          Width           =   2970
  54.       End
  55.       Begin Label labLabel 
  56.          Alignment       =   2  'Center
  57.          BackStyle       =   0  'Transparent
  58.          Caption         =   "Application Loader"
  59.          FontBold        =   -1  'True
  60.          FontItalic      =   0   'False
  61.          FontName        =   "MS Sans Serif"
  62.          FontSize        =   13.5
  63.          FontStrikethru  =   0   'False
  64.          FontUnderline   =   0   'False
  65.          Height          =   435
  66.          Index           =   0
  67.          Left            =   150
  68.          TabIndex        =   2
  69.          Top             =   225
  70.          Width           =   4620
  71.       End
  72.       Begin Label labLabel 
  73.          Alignment       =   2  'Center
  74.          BackStyle       =   0  'Transparent
  75.          Caption         =   "Application Loader"
  76.          FontBold        =   -1  'True
  77.          FontItalic      =   0   'False
  78.          FontName        =   "MS Sans Serif"
  79.          FontSize        =   13.5
  80.          FontStrikethru  =   0   'False
  81.          FontUnderline   =   0   'False
  82.          ForeColor       =   &H00FFFFFF&
  83.          Height          =   435
  84.          Index           =   1
  85.          Left            =   240
  86.          TabIndex        =   0
  87.          Top             =   240
  88.          Width           =   4530
  89.       End
  90.    End
  91. Option Explicit
  92. ' ===========================================================================================
  93. ' Local String Declarations
  94. ' ===========================================================================================
  95. Dim sLoaderList As String               ' String Declaring the path and list of files to load into memory
  96. Dim s3270Path As String
  97. Dim s3270WorkingDirectory As String
  98. ' ===========================================================================================
  99. ' Local Integer Declarations
  100. ' ===========================================================================================
  101. Dim iModuleListFileHandler As Integer    ' Integer declaring the file handle for the Module list
  102. Dim lCurrentPercent As Long              ' Current Percentage value for panel
  103. Dim lMaxPercent As Long                  ' Maximum percentage value for panel
  104. ' ===========================================================================================
  105. ' Local Constant Declarations
  106. ' ===========================================================================================
  107. Const APPLICATION_INIFILE = "\LOADER.INI"   ' Name of the applications INI file
  108. Const NO_3270SESSION = "No Sesstion"
  109. Function bLoadMemory (sFileName As String) As Integer
  110. On Error GoTo bLoadMemoryError
  111. Dim tParameterBlock As PARAMETERBLOCK
  112. 'Dim iShowWindow(2) As Integer
  113. 'iShowWindow(1) = 2
  114. 'iShowWindow(2) = SW_SHOWNORMAL
  115. '    tParameterBlock.wEnvSeg = 0
  116. '    tParameterBlock.lpCmdLine = ("")
  117. '    tParameterBlock.lpCmdShow=
  118. '    tParameterBlock.dwReserved = 0
  119.     If LoadModule(sFileName, tParameterBlock) < 32 Then
  120.         MsgBox ("Failed to Load")
  121.         bLoadMemory = False
  122.         Exit Function
  123.     End If
  124.     bLoadMemory = True
  125. Exit Function
  126. bLoadMemoryError:
  127.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "bLoadMemory")
  128.     bLoadMemory = False
  129.     Exit Function
  130.     Resume 0
  131. End Function
  132. Sub ExitApplication ()
  133. On Error GoTo ExitApplicationError
  134.     screen.MousePointer = DEFAULT
  135.     End
  136. Exit Sub
  137. ExitApplicationError:
  138.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "ExitApplicationError")
  139.     Exit Sub
  140.     Resume 0
  141. End Sub
  142. Sub Form_Load ()
  143. On Error GoTo Form_LoadError
  144.     screen.MousePointer = HOURGLASS
  145.     Call CentreMe(Me)
  146.     Me.Show
  147.     Call SetupGlobalVariables
  148.     Call SetupApplicationVariables
  149.     Call Load3270Session
  150.     Call LoadModuleList
  151.     Call ExitApplication
  152.     screen.MousePointer = DEFAULT
  153. Exit Sub
  154. Form_LoadError:
  155.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "Form_Load")
  156.     Exit Sub
  157.     Resume 0
  158. End Sub
  159. Sub IncreasePercentage ()
  160. On Error GoTo IncreasePercentageError
  161.     lCurrentPercent = lCurrentPercent + 1
  162.     If Int((lCurrentPercent / lMaxPercent) * 100) <> panFloodBar.FloodPercent Then
  163.             panFloodBar.FloodPercent = Int((lCurrentPercent / lMaxPercent) * 100)
  164.             DoEvents
  165.     End If
  166. Exit Sub
  167. IncreasePercentageError:
  168.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "IncreasePercentage")
  169.     Exit Sub
  170.     Resume 0
  171. End Sub
  172. Function lModuleCount () As Long
  173. On Error GoTo lModuleCountError
  174. Dim sModule As String
  175. Dim lModuleTempCount As Long
  176. lModuleCount = 0
  177. While Not EOF(iModuleListFileHandler)
  178.     Line Input #iModuleListFileHandler, sModule
  179.     lModuleTempCount = lModuleTempCount + 1
  180.     DoEvents
  181. lModuleCount = lModuleTempCount
  182. Exit Function
  183. lModuleCountError:
  184.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "lModuleCount")
  185.     Exit Function
  186.     Resume 0
  187. End Function
  188. Sub Load3270Session ()
  189. On Error GoTo Load3270SessionError
  190. Dim iRetValue As Integer
  191. Dim sCurrentPath As String
  192.     If s3270Path = NO_3270SESSION Then
  193.         Exit Sub
  194.     End If
  195.     sCurrentPath = app.Path
  196.     ChDir s3270WorkingDirectory
  197.     iRetValue = Shell(s3270Path, 1)
  198. '    While GetModuleUsage(iRetValue) > 0
  199. '        DoEvents
  200. '    Wend
  201.     ChDir sCurrentPath
  202. Exit Sub
  203. Load3270SessionError:
  204.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "Load3270Session")
  205.     Exit Sub
  206.     Resume 0
  207. End Sub
  208. Sub LoadModuleList ()
  209. On Error GoTo LoadModuleListError
  210. Dim sModule As String
  211.     Call OpenModuleFile
  212.     Call SetPanelPercentage
  213.     Close iModuleListFileHandler
  214.     Call OpenModuleFile
  215.     While Not EOF(iModuleListFileHandler)
  216.         Line Input #iModuleListFileHandler, sModule
  217.         labModule.Caption = sModule
  218.         If Not bLoadMemory(Trim$(sModule)) Then MsgBox "Fail"
  219.         Call IncreasePercentage
  220.     Wend
  221.     Close iModuleListFileHandler
  222. Exit Sub
  223. LoadModuleListError:
  224.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "LoadModuleList")
  225.     Exit Sub
  226.     Resume 0
  227. End Sub
  228. Sub OpenModuleFile ()
  229. On Error GoTo OpenModuleFileError
  230.     iModuleListFileHandler = FreeFile
  231.     Open sLoaderList For Input As #iModuleListFileHandler
  232. Exit Sub
  233. OpenModuleFileError:
  234.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "OpenModuleFile")
  235.     Exit Sub
  236.     Resume 0
  237. End Sub
  238. Sub SetPanelPercentage ()
  239. On Error GoTo SetPanelPercentageError
  240.     lCurrentPercent = 0
  241.     lMaxPercent = lModuleCount()
  242.     panFloodBar.FloodPercent = 0
  243.     panFloodBar.FloodType = 1
  244. Exit Sub
  245. SetPanelPercentageError:
  246.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "SetPanelPercentage")
  247.     Exit Sub
  248.     Resume 0
  249. End Sub
  250. Sub SetupApplicationVariables ()
  251. On Error GoTo SetupApplicationVariablesError
  252.     sLoaderList = GetINIStringValue("ModuleList", "FileName", app.Path & "\LOADER.TXT", app.Path & APPLICATION_INIFILE)
  253.     s3270Path = GetINIStringValue("3270", "AppPath", NO_3270SESSION, app.Path & APPLICATION_INIFILE)
  254.     s3270WorkingDirectory = GetINIStringValue("3270", "AppWorkingDirectory", NO_3270SESSION, app.Path & APPLICATION_INIFILE)
  255. Exit Sub
  256. SetupApplicationVariablesError:
  257.     Call ErrorHandler(Err, Erl, "LOADER.FRM", "SetupApplicationVariables")
  258.     Exit Sub
  259.     Resume 0
  260. End Sub
  261.